home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
gag
/
CPU.lha
/
CPU.mod
< prev
Wrap
Text File
|
1994-10-12
|
14KB
|
206 lines
MODULE CPU;
IMPORT
I:Intuition,d:Dos,u:Utility,y:SYSTEM,Break;
TYPE mdType=ARRAY 1638 OF INTEGER;
(* $DataChip+ *)
CONST
myData = mdType
(
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,
0FFFFU,0EAFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0FFF5U,
05555U,0577FU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0FFA0U,00000U,
0003FU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0D544U,04444U,04445U,
0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0E000U,00000U,00000U,07FFFU,
0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFDU,05555U,05555U,05555U,057FFU,0FFFFU,
0FFF8U,0FFFFU,0FFFFU,0FFFAU,00000U,00000U,00000U,003FFU,0FFFFU,0FFF8U,
0FFFFU,0FFFFU,0FFD4U,04444U,04444U,04444U,0457FU,0FFFFU,0FFF8U,0FFFFU,
0FFFFU,0FFE0U,00000U,00000U,00000U,0003FU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,
0FD55U,05555U,05555U,05555U,05557U,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FA00U,
00000U,00000U,00000U,00001U,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0D444U,04444U,
04444U,04444U,04444U,07FFFU,0FFF8U,0FFFFU,0FFFFU,0E000U,00000U,00000U,
00000U,00000U,07FFFU,0FFF8U,0FFFFU,0FFFFU,05555U,05555U,05555U,05555U,
05555U,05FFFU,0FFF8U,0FFFFU,0FFFFU,08000U,00000U,00000U,00000U,00000U,
00FFFU,0FFF8U,0FFFFU,0FFFDU,04444U,04444U,04444U,04444U,04444U,047FFU,
0FFF8U,0FFFFU,0FFFEU,00000U,00000U,00000U,00000U,00000U,003FFU,0FFF8U,
0FFFFU,0FFF5U,05555U,05555U,05511U,00115U,05555U,055FFU,0FFF8U,0FFFFU,
0FFE8U,00000U,00000U,00000U,00000U,00000U,000FFU,0FFF8U,0FFFFU,0FFD4U,
04444U,04445U,04444U,04045U,04444U,0447FU,0FFF8U,0FFFFU,0FFE0U,00000U,
00000U,00000U,00000U,0E000U,0001FU,0FFF8U,0FFFFU,0FF55U,05555U,05555U,
05110U,00000U,07555U,0555FU,0FFF8U,0FFFFU,0FE00U,00000U,00000U,00000U,
00000U,03800U,0000FU,0FFF8U,0FFFFU,0FD44U,04444U,04554U,05444U,04440U,
01D44U,04447U,0FFF8U,0FFFFU,0FA00U,00000U,00200U,00000U,00000U,00E00U,
00003U,0FFF8U,0FFFFU,0F555U,05555U,05555U,05110U,00000U,00755U,05555U,
0FFF8U,0FFFFU,0F000U,00000U,00880U,00000U,00000U,001E0U,00001U,0FFF8U,
0FFFFU,0D444U,04445U,05544U,04444U,04400U,001F4U,04445U,0FFF8U,0FFFFU,
0E000U,00002U,02220U,00000U,00000U,000F8U,00000U,0FFF8U,0FFFFU,05555U,
05555U,05555U,05150U,00000U,00075U,05555U,07FF8U,0FFFFU,08000U,00008U,
00800U,00000U,00000U,0003EU,00000U,03FF8U,0FFFFU,04444U,04455U,05554U,
05444U,04400U,0001DU,04444U,05FF8U,0FFFEU,00000U,00022U,02220U,00000U,
00000U,0000FU,00000U,01FF8U,0FFFDU,05555U,05555U,05555U,05110U,00000U,
00007U,05555U,05FF8U,0FFFEU,00000U,00088U,08080U,00000U,00000U,00007U,
08000U,00FF8U,0FFFCU,04444U,04555U,05555U,04444U,04000U,00007U,0C444U,
047F8U,0FFF8U,00000U,00222U,02220U,00000U,00000U,00003U,0E000U,007F8U,
0FFF5U,05555U,05555U,05555U,05110U,00000U,00001U,0F555U,057F8U,0FFF8U,
00000U,00808U,00808U,00000U,00000U,00001U,0F800U,003F8U,0FFD4U,04444U,
05555U,05554U,05444U,04000U,00001U,0F444U,045F8U,0FFE0U,00000U,02222U,
02222U,00000U,00000U,00000U,0F800U,003F8U,0FFD5U,05555U,05555U,05555U,
05500U,00000U,00000U,07555U,055F8U,0FFC0U,00000U,08880U,08880U,00000U,
00000U,00000U,0F800U,001F8U,0FFC4U,04445U,05555U,05555U,04440U,00000U,
00000U,07D44U,045F8U,0FF80U,00002U,02222U,02222U,00000U,00000U,00000U,
07E00U,000F8U,0FF55U,05555U,05555U,05555U,05100U,00000U,00500U,07D55U,
05578U,0FF80U,00000U,00808U,00808U,00000U,00000U,00200U,03E00U,000F8U,
0FF44U,04455U,05555U,05555U,05444U,00000U,00140U,03F44U,04478U,0FF00U,
00002U,02222U,02222U,00000U,00000U,00200U,03E00U,00078U,0FF55U,05555U,
05555U,05555U,05500U,00000U,01554U,01F55U,05578U,0FE00U,00008U,08088U,
08088U,08000U,00000U,0FA00U,03F80U,00038U,0FF44U,04455U,05555U,05555U,
04440U,00005U,05554U,01F44U,04478U,0FE00U,00022U,02222U,02222U,02000U,
0000EU,0A200U,03F80U,00078U,0FD55U,05555U,05555U,05555U,05100U,00175U,
05554U,01F55U,05578U,0FC00U,00008U,00808U,00808U,00000U,003FAU,0AA00U,
01F80U,00038U,0FC44U,04555U,05555U,05555U,05440U,01555U,05554U,01FC4U,
04478U,0FC00U,00022U,02222U,02222U,02000U,07EAAU,02A00U,01FE0U,00038U,
0FD55U,05555U,05555U,05555U,05505U,07555U,05550U,01FD5U,05578U,0F800U,
00080U,08880U,08880U,0800FU,0FAAAU,0AA80U,01FE0U,00038U,0F444U,04555U,
05555U,05555U,05455U,05555U,05557U,0FFD4U,04478U,0F800U,00222U,02222U,
02222U,022FFU,0A2A2U,022CFU,0FFE0U,00038U,0F555U,05555U,05555U,05555U,
05575U,05555U,055DFU,0FFD5U,05578U,0F000U,00008U,00808U,00808U,00FFAU,
0AAAAU,0AFFFU,0FFE8U,00038U,0F444U,04555U,05555U,05555U,05555U,05555U,
05FFFU,0FFD4U,04478U,0F000U,00222U,02222U,02222U,03FEAU,02A2AU,0FFFFU,
0FFF8U,00038U,0F555U,05555U,05555U,05557U,07F55U,05555U,0FFFFU,0FFFDU,
05578U,0F000U,00088U,08088U,0AFFFU,0FFAAU,0AAAFU,0FFFFU,0FFFEU,0BFF8U,
0F444U,04555U,05555U,0FFFFU,0FD55U,0555FU,0FFFFU,0FFFFU,0FFF8U,0E000U,
00222U,02FFFU,0FFFFU,0FE22U,022FFU,0FFFFU,0FFFFU,0FFF8U,0F555U,05555U,
07FFFU,0FFFFU,0FD55U,0557FU,0FFFFU,0FFFFU,0FFF8U,0E000U,00BFFU,0FFFFU,
0FFFFU,0FEAAU,0ABFFU,0FFFFU,0FFFFU,0FFF8U,0F444U,05FFFU,0FFFFU,0FFFFU,
0FD55U,057FFU,0FFFFU,0FFFFU,0FFF8U,0E000U,00FFFU,0FFFFU,0FFFFU,0FE2AU,
03FFFU,0FFFFU,0FFFFU,0FFF8U,0F555U,05FFFU,0FFFFU,0FFFFU,0FF55U,07FFFU,
0FFFFU,0FFFFU,0FFF8U,0E000U,01FFFU,0FFFFU,0FFFFU,0FFABU,0FFFFU,0FFFFU,
0FFFFU,0FFF8U,0F444U,05FFFU,0FFFFU,0FFFFU,0FF57U,0FFFFU,0FFFFU,0FFFFU,
0FFF8U,0E000U,01FFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,
0F555U,05FFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0E000U,
01FFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0F444U,05FFFU,
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0E000U,01FFFU,0FFFFU,
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0F555U,05FFFU,0FFFFU,0FFFFU,
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0E000U,03FFFU,0FFFFU,0FFFFU,0FFFFU,
0FFFFU,0FFFFU,0FFFFU,0FFF8U,0F455U,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,
0FFFFU,0FFFFU,0FFF8U,0E6FFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,
0FFFFU,0FFF8U,0F7FFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,
0FFF8U,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,
0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00888U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,0002AU,02AAAU,02AA8U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00888U,08888U,08888U,08000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00002U,0A2A2U,0A2A2U,0A2A2U,0A200U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00008U,08888U,08888U,08888U,08880U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,0022AU,0AA2AU,
0AA2AU,0AA2AU,0AA2AU,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00888U,08888U,08888U,08888U,
08888U,08000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,022A2U,0A2A2U,0A2A2U,0A2A2U,0A2A2U,0A000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,08888U,08888U,088A8U,0A888U,08888U,08800U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00002U,
02AAAU,02AAAU,02AAAU,0AAA8U,02AAAU,02A00U,00000U,00000U,00000U,00000U,
00000U,00000U,01110U,00000U,00000U,00000U,00000U,00008U,08888U,08888U,
08A8AU,0AAAAU,00888U,08880U,00000U,00000U,00000U,00000U,00000U,00000U,
00004U,00000U,00000U,00000U,00000U,000A2U,0A2A2U,0A022U,0A2AAU,0AAAAU,
0A0A2U,0A2A0U,00000U,00000U,00000U,00000U,00000U,00001U,00111U,00000U,
00000U,00000U,00000U,00088U,08888U,08008U,088AAU,0AAAAU,0A808U,08888U,
00000U,00000U,00000U,00000U,00000U,00000U,00044U,04400U,00000U,00000U,
00000U,0022AU,0AA28U,00002U,022AAU,0AAAAU,0AA02U,0AA2AU,00000U,00000U,
00000U,00000U,00000U,00001U,01111U,01500U,00000U,00000U,00000U,00888U,
08880U,00008U,08A8AU,0AAAAU,0AA80U,08888U,08000U,00000U,00000U,00000U,
00000U,00000U,00045U,05500U,00000U,00000U,00000U,022A2U,0A280U,00002U,
0A2AAU,0AAAAU,0AA80U,0A2A2U,08000U,00000U,00000U,00000U,00000U,00001U,
00111U,05100U,00000U,00000U,00000U,08888U,08800U,00000U,088AAU,0AAAAU,
0AAA0U,00888U,08000U,00000U,00000U,00000U,00000U,00000U,00445U,05550U,
00000U,00000U,00000U,02AAAU,02000U,00002U,02AAAU,0AAAAU,0AAA8U,00AAAU,
02000U,00000U,00000U,00000U,00000U,00001U,01111U,01514U,00000U,00000U,
00000U,08888U,08000U,00000U,08A8AU,0AAAAU,0AAA8U,00888U,08800U,00000U,
00000U,00000U,00000U,00000U,00445U,05554U,00000U,00000U,00002U,0A2A2U,
08000U,00000U,0A2AAU,0AAAAU,0AAAAU,002A2U,0A000U,00000U,00000U,00000U,
00000U,00001U,01111U,011D4U,00000U,00000U,00008U,08888U,00000U,00000U,
088AAU,0AAAAU,0AAAAU,00088U,08800U,00000U,00000U,00000U,00000U,00000U,
04455U,05555U,00000U,00000U,0002AU,0AA28U,00000U,00000U,022AAU,0AAAAU,
0AAAAU,0002AU,0AA00U,00000U,00000U,00000U,00000U,00011U,01115U,0595DU,
00000U,00000U,00008U,08888U,00000U,00000U,08AAAU,0AAAAU,0A8AAU,08088U,
08800U,00000U,00000U,00000U,00000U,00000U,04555U,05415U,00000U,00000U,
00022U,0A2A0U,00000U,00000U,022AAU,0AAAAU,0A80AU,08022U,0A200U,00000U,
00000U,00000U,00000U,00001U,01115U,0D001U,0C000U,00000U,00088U,08880U,
00000U,00000U,008AAU,0AAAAU,08088U,08008U,08880U,00000U,00000U,00000U,
00000U,00004U,05554U,00000U,04000U,00000U,000AAU,02A00U,00000U,00000U,
022AAU,0AAA8U,00022U,0802AU,02A80U,00000U,00000U,00000U,00000U,00011U,
01580U,00001U,0C000U,00000U,00088U,08880U,00000U,00000U,00AAAU,0AA00U,
0008AU,08008U,08880U,00000U,00000U,00000U,00000U,00005U,05000U,00001U,
04000U,00000U,002A2U,0A200U,00000U,00000U,002AAU,0A000U,00002U,0A002U,
0A280U,00000U,00000U,00000U,00000U,00011U,00000U,00001U,0C000U,00000U,
00088U,08800U,00000U,00000U,008A8U,00000U,0000AU,0A008U,08880U,00000U,
00000U,00000U,00000U,00040U,00000U,00007U,00000U,00000U,0022AU,0A800U,
00000U,00000U,00200U,00000U,00020U,0000AU,0AA00U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00088U,08800U,00000U,00000U,
00000U,00000U,00000U,00008U,08880U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,002A2U,0A000U,00000U,00000U,00000U,00000U,
00000U,00002U,0A200U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00888U,08800U,00000U,00000U,00000U,00000U,00000U,00000U,
08000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00AAAU,02000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00888U,08000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,002A2U,0A000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00888U,08000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00A2AU,0A000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00888U,08000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,002A2U,08000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00888U,08000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00200U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U
);
VAR
im:I.Image;
wn:I.WindowPtr;
BEGIN;
wn:=I.OpenWindowTagsA(NIL,I.waInnerHeight,91,I.waInnerWidth,142,
I.waTitle,y.ADR("CPU Usage: 100 %"),
I.waFlags,LONGSET{I.activate,I.windowDrag,I.windowDepth},u.done);
im.leftEdge:=wn.borderLeft;
im.topEdge:=wn.borderTop;
im.width:=142;
im.height:=91;
im.depth:=2;
im.planePick:=SHORTSET{0..1};
im.planeOnOff:=SHORTSET{};
im.nextImage:=NIL;
im.imageData:=y.ADR(myData);
REPEAT;
I.DrawImage(wn.rPort,im,0,0);
UNTIL FALSE;
CLOSE;
I.CloseWindow(wn);
END CPU.